home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / msgtst.s < prev    next >
Text File  |  1991-11-23  |  3KB  |  94 lines
  1. *****************************************************************************
  2. * Modulname:    Message Test
  3. * Modultype:    Library
  4. * Dest.Comp.:    HP48
  5. * Language:    System RPL
  6. * Author:    Detlef Mueller, Nibelungenweg 6, 2000 Hamburg 56, W-Germany
  7. * Interface:    MSG1, MSG2, MSG3
  8. * Description:    Test library message handling
  9. * Edition History :
  10. *    0.000    08-25-1991    DM    Alpha version
  11. *****************************************************************************
  12.     TITLE    Message Test
  13. xROMID        329
  14.     ASSEMBLE
  15. MTROMID    EQU    #329
  16. DOMSG    MACRO    * romid,msgnr    ** Macro, to handle msg nr. generation **
  17.     CON(5)    =DOBINT
  18.     CON(5)    ($1)*256+($2)        * (ROMID << 8) | msgnr *
  19. DOMSG    ENDM
  20.     NIBASC    /HPHP48-E/    ** Binary download header **
  21.     RPL
  22. EXTERNAL    xMSG1        ** External definitions **
  23. EXTERNAL    xMSG2
  24. EXTERNAL    xMSG3
  25.  
  26. *** MTLmsg ******************************************************************
  27. * Description :    Message table
  28. *****************************************************************************
  29.     ASSEMBLE
  30. =MTLmsg
  31.     RPL
  32. ARRY
  33. [
  34.     "Memory Lost !?"
  35.     "Achou .."
  36.     "27B-6, 27B-6 ..."
  37. ]
  38. *** MTLcfg ******************************************************************
  39. * Interface :    ( --> )
  40. * Description :    Attach this library at system warmstart
  41. *****************************************************************************
  42.     ASSEMBLE
  43. =MTLcfg
  44.     RPL
  45. ::
  46.     DOBINT MTROMID XEQSETLIB        ( *Autoattach* )
  47. ;
  48. *** MSG1 ********************************************************************
  49. * Interface :    ( --> )
  50. * Description :    Just generate an error with error message 1
  51. *****************************************************************************
  52.     ASSEMBLE
  53.     CON(1)    8            * Tell parser 'Non algebraic' *
  54.     RPL
  55. xNAME    MSG1
  56. ::
  57.     CK0
  58.     ASSEMBLE
  59.     DOMSG    MTROMID,1
  60.     RPL
  61.     ERROROUT
  62. ;
  63. *** MSG2 ********************************************************************
  64. * Interface :    ( --> )
  65. * Description :    Just generate an error with error message 2
  66. *****************************************************************************
  67.     ASSEMBLE
  68.     CON(1)    8
  69.     RPL
  70. xNAME    MSG2
  71. ::
  72.     CK0
  73.     ASSEMBLE
  74.     DOMSG    MTROMID,2
  75.     RPL
  76.     ERROROUT
  77. ;
  78. *** MSG3 ********************************************************************
  79. * Interface :    ( --> )
  80. * Description :    Just generate an error with error message 3
  81. *****************************************************************************
  82.  
  83.     ASSEMBLE
  84.     CON(1)    8
  85.     RPL
  86. xNAME    MSG3
  87. ::
  88.     CK0
  89.     ASSEMBLE
  90.     DOMSG    MTROMID,3
  91.     RPL
  92.     ERROROUT
  93. ;
  94.